home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / IDOL.ZIP / MAIN.IOL < prev    next >
Text File  |  1991-12-30  |  298b  |  10 lines
  1. procedure main()
  2.   mydeque := Deque()
  3.   mydeque$push("hello")
  4.   mydeque$push("world")
  5.   write("My deque is size ",mydeque$size())
  6.   every write("give me a ",mydeque$foreach())
  7.   write("A random element is ",mydeque$random())
  8.   write("getting ",mydeque$get()," popping ",mydeque$pop())
  9. end
  10.